home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 12 / Mac Magazin and MacEasy Magazine CD - Issue 12.iso / CD Extras / Plug-ins / SODAColor / SODA-PlugIns-1 / Plug-In-Collection-1 / Exploding Text next >
Text File  |  1994-11-07  |  9KB  |  188 lines
  1. --SODABuildPlug
  2. --Exploding Text
  3.  
  4. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  5. SODAColor™
  6. Exploding Text Button :
  7.  
  8. This plug-in allows you to create buttons in SODAColor which display TEXT which shrinks or expands
  9.  
  10. LOADING THIS SCRIPT INTO SODACOLOR:
  11. 1.  Select "Load New Plug-In" from the plug-in list (TV-icon on edit palette).
  12. 2.  Select this document.
  13.  
  14. USING THIS PLUG-IN:
  15. 1.  Type in the message you want to display.
  16. 2.  Draw the rectangle in which you want the button to appear.
  17. 3.  Edit font, message, and style properties by shift-clicking the button.
  18. 4.  As ususal, option-click to reposition, command-click to delete.
  19.   
  20. ∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞∞
  21. on mouseUp
  22.   put "This plug-in allows you to create a button which displays shrinking or expanding text." into myprompt
  23.   put "Do you want to create this?" into prompt2
  24.   
  25.   answer myPrompt&return&return&prompt2 with "Cancel" or "Build it!"
  26.   if it is "Cancel" then exit mouseUp
  27.   
  28.   
  29.   put buildScript() &return into myScript
  30.   if myScript is empty then exit mouseUp
  31.   put "Display what message?"into myPrompt
  32.   
  33.   repeat forever
  34.     ask myPrompt  with "Hello World!"
  35.     if it is empty then exit to HyperCard
  36.     put it into myBName
  37.     if there is not a cd btn myBName then exit repeat
  38.     put "Sorry that message conflicts with something else on this card, please choose another message:" into myPrompt
  39.   end repeat
  40.   
  41.   answer"Please drag a rectangle over the area you want your button to cover"
  42.   
  43.   put sodaRect() into myRect
  44.   lock screen
  45.   choose tool 2
  46.   put the number of cd btns into myBNum
  47.   domenu "New Button"
  48.   put myBNum+1 into myBNum
  49.   
  50.   if there is not a cd btn myBNum then
  51.     answer "Problem encountered.  Please make sure you're on the card layer"
  52.     exit mouseUp
  53.   end if
  54.   
  55.   set the textfont of cd btn myBNum to helvetica
  56.   set the textstyle of cd btn myBNum to "bold,condense,italic"
  57.   set the name of cd btn myBNum to myBName
  58.   set the rect of cd btn myBName to myRect
  59.   set the showname of cd btn myBName to true
  60.   set the style of cd btn myBName to opaque
  61.   set the autohilite of cd btn myBname to false
  62.   set the hilite of cd btn myBname to true
  63.   
  64.   --Link Script:
  65.   
  66.   put the script of bg btn "SODAPlugButt" into nuScript
  67.   put myScript into line 20 of nuScript
  68.   
  69.   --Flashing rect whilst repositioning:
  70.   
  71.   put " repeat until the mouseClick"&return into Repos
  72.   put "set the hilite of me to not the hilite of me"&return after Repos
  73.   put "set the hilite of me to not the hilite of me"&return after Repos
  74.   put Repos into line 5 of nuScript
  75.   
  76.   --Now Insert the Script:
  77.   
  78.   set the script of cd btn myBName to nuScript
  79.   
  80.   --Inform user:
  81.   
  82.   answer "•Option-Click on this button to re-position it."&return&¬
  83.   "•Command-Click to delete it"&return&"•Single-Click to run its script."&return&¬
  84.   "•Shift-Click to change Text & Fonts"
  85.   
  86.   choose tool 1
  87.   
  88. end mouseUp
  89.  
  90. function buildScript
  91.   put"  put 20 into myStart"&return after biff
  92.   put"  put 56 into myStop"&return after biff
  93.   put"  put 0 into myDelay"&return after biff
  94.   put"  put 20 into mySteps"&return after biff
  95.   put"  put 3 into myLoops"&return after biff
  96.   put"  "&return after biff
  97.   put"  if the shiftKey is down then"&return after biff
  98.   put"    ask ""e&"Display what message?""e&" with the short name of me"&return after biff
  99.   put"    if it is empty then exit mouseUp"&return after biff
  100.   put"    set the  name of me to it"&return after biff
  101.   put"    "&return after biff
  102.   put"    answer ""e&"What font?""e&" with ""e&"Times""e&" or ""e&"Palatino""e&" or ""e&"Helvetica""e&""&return after biff
  103.   put"    set the textfont of me to it"&return after biff
  104.   put"    "&return after biff
  105.   put"    answer ""e&"Italicise?""e&"with ""e&"Yes""e&" or ""e&"No""e&""&return after biff
  106.   put"    if it is ""e&"No""e&" then"&return after biff
  107.   put"      set the textstyle of me to ""e&"Bold,Condense""e&""&return after biff
  108.   put"    else"&return after biff
  109.   put"      set the textstyle of me to ""e&"Bold,Italic,Condense""e&""&return after biff
  110.   put"    end if"&return after biff
  111.   put"    "&return after biff
  112.   put"    ask ""e&"Start at what point-size?""e&" with myStart"&return after biff
  113.   put"    if it is empty then exit mouseup"&return after biff
  114.   put"    put it into meme"&return after biff
  115.   put"    repeat with x=1 to the number of chars in meme"&return after biff
  116.   put"      if the chartonum of meme>57 or the chartonum of meme<48 then exit mouseup"&return after biff
  117.   put"    end repeat"&return after biff
  118.   put"    put meme into myStart"&return after biff
  119.   put"    "&return after biff
  120.   put"    ask ""e&"Finish at what point-size?""e&" with myStop"&return after biff
  121.   put"    if it is empty then exit mouseup"&return after biff
  122.   put"    put it into meme"&return after biff
  123.   put"    repeat with x=1 to the number of chars in meme"&return after biff
  124.   put"      if the chartonum of meme>57 or the chartonum of meme<48 then exit mouseup"&return after biff
  125.   put"    end repeat"&return after biff
  126.   put"    put meme into myStop"&return after biff
  127.   put"    "&return after biff
  128.   put"    ask ""e&"How many steps?""e&" with mySteps"&return after biff
  129.   put"    if it is empty then exit mouseup"&return after biff
  130.   put"    put it into meme"&return after biff
  131.   put"    repeat with x=1 to the number of chars in meme"&return after biff
  132.   put"      if the chartonum of meme>57 or the chartonum of meme<48 then exit mouseup"&return after biff
  133.   put"    end repeat"&return after biff
  134.   put"    put meme into mySteps"&return after biff
  135.   put"    "&return after biff
  136.   put"    ask ""e&"What delay (in 60ths of a second) between updates?""e&" with myDelay"&return after biff
  137.   put"    if it is empty then exit mouseup"&return after biff
  138.   put"    put it into meme"&return after biff
  139.   put"    repeat with x=1 to the number of chars in meme"&return after biff
  140.   put"      if the chartonum of meme>57 or the chartonum of meme<48 then exit mouseup"&return after biff
  141.   put"    end repeat"&return after biff
  142.   put"    put meme into myDelay"&return after biff
  143.   put"    "&return after biff
  144.   put"    ask ""e&"Loop how many times?""e&" with ""e&"3""e&""&return after biff
  145.   put"    if it is empty then exit mouseup"&return after biff
  146.   put"    put it into meme"&return after biff
  147.   put"    repeat with x=1 to the number of chars in meme"&return after biff
  148.   put"      if the chartonum of meme>57 or the chartonum of meme<48 then exit mouseup"&return after biff
  149.   put"    end repeat"&return after biff
  150.   put"    put meme into myLoops"&return after biff
  151.   put"    "&return after biff
  152.   put"    answer ""e&"Text should be:""e&"with ""e&"Black""e&" or ""e&"White""e&""&return after biff
  153.   put"    if it is ""e&"White""e&" then"&return after biff
  154.   put"      set the hilite of me to true"&return after biff
  155.   put"    else set the hilite of me to false"&return after biff
  156.   put"    "&return after biff
  157.   put"    "&return after biff
  158.   put"    put the script of me into kooma"&return after biff
  159.   put"    put myStart into word 2 of line 23 of kooma"&return after biff
  160.   put"    put myStop into word 2 of line 24 of kooma"&return after biff
  161.   put"    put myDelay into word 2 of line 25 of kooma"&return after biff
  162.   put"    put mySteps into word 2 of line 26 of kooma"&return after biff
  163.   put"    put myLoops into word 2 of line 27 of kooma"&return after biff
  164.   put"    "&return after biff
  165.   put"    set the script of me to kooma"&return after biff
  166.   put"    set the textSize of me to myStart"&return after biff
  167.   put"    exit mouseUp"&return after biff
  168.   put"  end if"&return after biff
  169.   put"  "&return after biff
  170.   
  171.   
  172.   put"repeat with loopIt=1 to myLoops"&return after biff
  173.   put"if myStart>myStop then"&return after biff
  174.   put"put trunc((myStart-myStop)/mySteps) into stepper"&return after biff
  175.   put"repeat with x=1 to mySteps"&return after biff
  176.   put"wait myDelay ticks"&return after biff
  177.   put"put myStart-stepper*x into jiff"&return after biff
  178.   put"set the textSize of me to jiff"&return after biff
  179.   put"end repeat"&return after biff
  180.   put"else"&return after biff
  181.   put"repeat with x=1 to mySteps"&return after biff
  182.   put"wait myDelay ticks"&return after biff
  183.   put"set the textSize of me to myStart+x*trunc(myStop/mySteps)"&return after biff
  184.   put"end repeat"&return after biff
  185.   put"end if"&return after biff
  186.   put"end repeat"&return after biff
  187.   return biff
  188. end buildScript